1 . 

2 . 

3 . 

4 . INTEREST 

5 .BY JESS SHADLE 

S .FOR BLUE RftM ONLY 
20 FOR ft=0TO 165; @( ft )=0; NEXT ft 

30 FOR XY=20078TO 20128STEP 2 ; KC XY )=0 ; NEXT XY .A 

31 F=100;G=200 (0 (jQ£ey 

32 PRINT “INPUT CHOICE, PUSH GO" 

33 PRINT “SIMPLE INTEREST=1 

34 PRINT "COMPOUND INTEREST=2 

35 PRINT "MORTGftGE=0 
3S INPUT S; CLEftR 

37 IF S=1P=7000; GOTO 75 

38 IF S=2P=6000 ; GOTO 75 
33 P=5000 

40 @( 1 16 )=1 ; @C 134 )=1 ; @( 46 ) = 1 
43 CLEftR 

50 PRINT “MORTGAGE AMOUNT 

51 GOSUB 3030 

60 IF S-0PRINT ; PRINT "INPUT YEARS, THEN PRESS GO"; INPUT Y 
70 CLEAR ; PRINT "RUNNING" ; RETURN 

75 @( 30 )=2; @( 33 ) = 1 ; @C 134 ) = 1 ; PRINT "LOAN AMOUNT" ; PRINT ; GOSUB 3030 
100 CX=-32; 2=1 ; FOR B-RTO SSTEP -1;IF ®>(B)="0"IF ZGOTO 130 
103 IF O=0PRINT , ; 0=1 
110 Z=0 

120 TU=@(B) 

121 IF ( B=i 1 ) + C B=23 )+( B=47 )+( B=65 ) + C B=83 )+C B=101 )+( B=113 )+( B-136 )+< B=155 )PRINT 

a a 
9 9 

130 NEXT B 
140 U=0; RETURN 

200 PRINT FOR B=TTO USTEP - 1 ; TU=@C B ) ; NEXT B; PRINT ;O=0;RETURN 

500 IF E<2N=7 

510 IF E=2N=25 

520 IF E=3N=61 

530 FOR I=1T0 B 

540 @( N+A )=@C 165+J ) 

550 A=A-1;J=J+1 

560 NEXT I 

561 @( 46 )=1 

570 IF E=2IF C @C 26 ) )+( ®K 27 ) ) + ( @( 28 ) ) >0Sc@C 18 ) , @C 36 ) , 18 ) 

580 ft=0; B=0; C=0; J=0; PRINT ; RETURN 
1333 CALL24576 
>CALL24578 

BR >CALL24576 ; LIST 3030 
3030 CX=-30;CY=-8 

3040 K=KP 

3041 IF K=31B=B-1 ; ft— A-l ; H=CX; TU=31 ; TU=i3; CX=H-6; CY=CY+8; GOSUB 3040* 

3042 IF K=36TU=K; GOSUB 3B40* 

3043 IF K=37TU=K; GOSUB 3040* 

3044 IF S >0IF K=13G0SUB 3040* 

3045 IF K=44TU=K; GOSUB 3040* 

3050 IF K=46C=1;TU==46; GOSUB 3040* 

3060 IF K=73E=l; GOSUB 500;PRINT "INPUT INTEREST RATE, THEN" ; PRINT “PRESS T“;PRINT 
;CX=-20; GOSUB 3040* 

3070 IF K=84E=2 ; GOSUB 500; PRINT "INPUT YEARS, THEN" ; PRINT "PRESS P” ; CX=-20; GOSUB 




3040* 

3080 IF K=80E=3 ; GOSUB 500; GOSUB 60; GOSUB P* 

3080 IF K=67ST0P 
3100 TU=K 
3110 @( 165+B )=K 
3120 B=B+1 

3130 IF C=1 IF E=0U=U+1 ; IF U=2K=73; GOSUB 3060* 

3140 IF C=0A=A+1 
3150 GOSUB 3040* 

5000 &+@( 108 ) , @t 18 ) , 108 ) 

5020 $+@t 108),@<30),@<90) 

5030 54 ) , @( 126 ) , @( 54 ) 

5040 IF @(63)+@C64)+@( 62K145G0SUB 50G0* 

5050 Sb@(90),@( 108), m 90); GOSUB 5030* 

5060 Sc@C 12S ) , @( 90 ) , @( 108 ) 

5065 FOR A=90TO 109; @( A )=0; NEXT 8 
5070 $-@C 126 ) , @< 108 > , @C 108 ) 

5080 Sc@( 108),@( 18),@C 108) 

5090 Sc@C 126 ) , 108 ) , 108 ) 

5100 @( 134 )=2;@C 135 ) = 1 
5110 fb@C0),@C 108),@< 108) 

5121 CX=-36 

5130 PRINT "MONTHLY PAYMENT 

5140 %cm 108 126 ),@C 144 ) ; R=160; S=152; GOSUB F; T=151 ; U=1S0; GOSUB G 

5150 ®b@( 0),@( 18), @C 72 ) 

5160 S+@( 72 ) , @( 90 ) } @( 90 ) 

5170 CX=-40 

5180 M=M+l; PRINT #3 , M, " YEAR" , ; IF M>1PRINT "5" 

5181 PRINT 

5190 PRINT *: INTEREST PAID THIS YEAR " ; R=88 ; S=80 ; GOSUB F; T=79; U=78; GOSUB G 
5200 PRINT "MORTGAGE REDUCTION 

5210 108),@f72),@C36);R=53;S=44;GOSUB F ; T=43 ; U=42 ; GOSUB G 

5220 PRINT "TOTAL INTEREST PAID 

5230 R=10S;S=98; GOSUB F ; T=97 ; U=36 ; GOSUB G 

5240 PRINT "MORTGAGE BALANCE 

5250 S-@C 0 ) , @( 36 ) , @( 0 ) ; R=17 ; S=8; GOSUB F; T=7; U=6; GOSUB G 
5270 Y=Y-1 ; IF Y=0STGP 
5280 GOSUB 5130* 

5300 STOP 

6000 &b@( 54 ) , @( 90 ) , @( 90 ) 

6002 FOR Q=36T0 53 ; Q )=0 ; NEXT Q 
6005 &+@( 0 ) , @( 36 ) , @( 36 ) 

6010 «b@C0),@C 18),@( 144) 

6015 «+<§>( 0 ), @C 144), @C0) 

6020 S-@( 54 ) , @C 126 ) , @( 54 ) 

6030 IF @( 62 )+<®( 63 )+@K 64 X 145G0SUB 6050* 

6040 GOSUB 6010* 

6050 PRINT “INTEREST+LOAN” ;R=17;S=8; GOSUB F; T=7; U=6; GOSUB G 

6051 PRINT 

6060 U=1 ; PRINT “NUMBER OF PAYMENTS" ; R= 107; S=98; GOSUB F; T=97; U=96; GOSUB G 
6065 PRINT 

6070 PRINT "MONTHLY PAYMENTS" 

6080 &c@( 0 ) , @C 90 ) , @( 90 ) ; GOSUB F; T=97; U=96; GOSUB G 
6090 PRINT "INTEREST PAID" 

6100 $-@C0),@C 36 ) s @< 90 ) ; R=107 ; S=98; GOSUB F; T=37; U=96; GOSUB G 
6110 STOP 

7000 Sb@(54),H>(30),@C90) 

7005 CX=-45 



7010 »b@(0),@( 18), @(36); PRINT "YEARLY INTEREST" ; R=53; S=44; GOSUB F ; T=43 ; U=42 ; GOSU 
B G 

7020 Sb@< 54 ) , @( 3G ) , @( 36 ) 

7030 ®+@C0) } @C3G),@(3B); PRINT "LOAN+ INTEREST" ; GOSUB F ; GOSUB G 

7040 R=107; S=9B; T=97; U=96; U=1 ; PRINT "NUMBER OF PAYMENTS" ; GOSUB F ; PRINT 

7050 $c@( 36 ) , @C 90 ) , @C 90 ) ; PRINT "MONTHLY PAYMENT" ; GOSUB F ; GOSUB G 

7060 f-@C36),@(0) ,@C 90); PRINT “INTEREST PAID”; GOSUB F ; GOSUB G 

BR> 



